home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1998 July
/
EnigmA AMIGA RUN 29 (1998)(G.R. Edizioni)(IT)[!][issue 1998-07 & 08].iso
/
earkit
/
news
/
thor
/
rexx
/
edge
/
cool.edge
< prev
next >
Wrap
Text File
|
1998-05-24
|
945b
|
48 lines
/*
** $VER: Cool.edge 1.0 (13.1.96)
** Coolify (using "TEXT COOLER v1.0 by
** DDT of the HALF-BRAINS TEAM")
** text block - by Troels Walsted Hansen
** added Edge support - Kirk A. Hans
** Function: for now, it takes the text from the current line position to the
** end of the file and makes it "cool". Will added block support in
** the next version */
options results
getenvvar _WE_CursorY
currline = result
getenvvar _WE_CursorX
currcolumn = result
getenvvar _FE_Lines
lastline = result
call open(tfh, "t:UncoolTempFile", W)
do i=currline to lastline
'Position' LINE i
getenvvar _WE_CLine RAW
lin = result
if(lin~= "") then do
delete LINE
i = i-1
end
else break
call writech(tfh,lin)
end
call close(tfh)
address command "Cool >nil: t:UncoolTempFile t:CoolTempFile"
call delete("t:UncoolTempFile")
Position currcolumn currline
INCLUDE "t:CoolTempFile"
call delete("t:CoolTempFile")
Position currcolumn currline